sub msx1sound(vreg as ubyte,vwval as ubyte)
  '- not tested
  out $a0,vreg
  out $a1,vwval
  end sub 
